DirNew Subroutine

public subroutine DirNew(dir)

create a new directory

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: dir

Variables

Type Visibility Attributes Name Initial
character(len=100), public :: cmd

Source Code

SUBROUTINE DirNew &
!
(dir)

IMPLICIT NONE

!Arguments with intent(in):
CHARACTER (LEN = *), INTENT(IN) :: dir 

! Local declarations:  
CHARACTER (LEN = 100)      :: cmd
!------------end of declaration------------------------------------------------

   
IF (GetOS () == WIN32) THEN !detected Windows OS
    ! ./ not allowed
    cmd = 'mkdir ' // dir
    CALL System (cmd)
ELSE !detected unix like OS, including linux
    cmd = 'mkdir ' // dir
    CALL System (cmd)
END IF



END SUBROUTINE DirNew